#!/bin/sh
# log.file.tcl \
exec tclsh "$0" ${1+"$@"}
set logfile ""

#create and open logfile
proc openLog {filename} {
	global logfile
	set logfile [open $filename w]
}

#write record to logfile
proc writeLog {record} {
	global logfile	
	puts $logfile $record
}

#close logfile
proc closeLog {} {
	global logfile
	close $logfile
}